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レン ガ 半 の リン ゴ 狩 


BASIC プ ログ ラム リス ト 


10 CGEN 2:CGSET 1, 1 攻 YORM 

2 の 0 PALETB 0 の, 9, 48, 39, 22 
30 HI=PEEK (&H783A) *199+PEEK ( 
&H783B) 攻 TWRW | | 
4 の 0 P=]1:H=5:ME=1:A$=CHR$ (215) 
:B$=ーCHR$ (195) : 華 $=CHR$ (219) 攻 TURN 
50 VIEW:X=1 3 :Y ヤ =19:E ビ = の : U=20+P 
IETURNM 

69 LOCATE 0 の の, 22:PRINT _ SCENE“ : 
LOCATE 8 22:PRINT" : ア トリ" :LOCAT 
BE 15、22:PRINT" コ : ノ コリ " :LOCATE 
24, 22:PRINT" リ ニン" 降 TURN 

70 FOR !=1 TO U:M=RND (2 6) +1 : 
N テ =RND (18) +2:LOCATE M N:PRINT 
T$ : NEXT 

89 FOR I=1 TO H:Q=RND (2 6) +1 : 
R=RND (18) +2:LOCATE Q R:PRINT 
A$ : NEXT ETURN 

9 の 9 LOCATE の ⑳. 21:PRINT"HI "ii:HI 


- SCORE ":SC 隆 TURN 


199 LOCATE 11, 22:PRINT" 1 


プロ グラ ムリ スト だ け 見 る と 
ちよ っ と むず か し そう だ けど 、 
解説 を よく 読め ば 、 パパ ッ チリ わ 
か る は ず 。 ゲー ム を 改造 し だ り 
する と き の 参 考 に な る よ ! 


10 生 BC 面 こ に キ ャ ラク タテ ー ブ ル B の キャ ラク タ 、 スプ ライ ト 
面 に キャ ラク タテ ー ブ ル A の キャ ラク タ を 使用 し 、 BG 面 の パレ 
ツ ト 、 プティ ト 南 の パレ 、 ッ ト を と も に 1 に 設定 する 。 

20 行 BG の パレ ッ ト 0 の 色 コ ー ド の 設定 。 こ れ に より 、 バ パッ ク 
「 が 暗い 緑 に キッ で < の 
「 | 30 生 ハイ スコ ア (HI) を 783A 番 地 (100 位 以 上 ) と 783B 番 地 (10 
「 0 以下 ) か ら と り 出 す 。 783A、 783B 番 地 の ハイ スコ ア は 、 ゲー ム 
「 を スト ッ プ し て も 残る 。 
40 行 ふえ る 残り 当 の 数 (P)、 リン ゴ の 数 (日 )、 面 数 (ME) 、 リン 
ゴ (A$)、 レ ン が (B$) 、 残り 当 (TS) の 設定 。 
50 行 BG 画 画面 を 表示 し 、 レン ガ が (BS$) の 最初 の 座標 を 設定 し て 、 
モン テム リン ゴ の 数 (E)、 残り 雪 の 数 (U) を 設定 。 
60 行 画 画面 ド 披 に 、 *SCENE” 、 バ アト *、 バ ノコ リ *、 さ ニン” の 
廊 字 を 書く 。 
70 行 画面 の 任意 葉 の 座標 (M、 N ) に 、 U 個 の 残り 雪 を 書く 。 
80 生 画面 の 任意 の 座標 (Q 、 R ) に 、 H 個 の リン ゴ (AS) を 書く 。 
90 行 画面 下 恋 に ハイ スコ ア (HI) と スコ ア (SC) を 書く 。 
100 行 スコ ア (SC) を 消す 。 
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1190 LOCATE 5,. 22:PRINT ME:LOC 
ATE 11, 22:PRINT H-ーME+1--E:LOC 
ATE 2 22:PRINT 3 一 XE EETURN 

1290 LOCATE X Y:PRINT B$ ETURN 
139 S=STICK (9) :X1=X:Y1=Y 必 TURM 
149 IF S<>9 THEN PLAY"T1M1Y3 
O1C" 降 TURN 

150 IF S=1 THEN X= テ X 十 ] 攻 ETURM 
150 IF S=2 THEN X= テ Xー] 
170 IF S=4 THEN Y= テ Y+] 隆 ETURN 
189 IF S=8 THEN Y= テ Yー1] ETURN 


1990 LOCATE XX1, Yl:PRINT B$ 


200 D$=SCR$ (X, Y) : IF STRIG (⑳) 
テー8 THEN 310 

21 り 9 IF D$=T$ OR D$=B$ THEN 2 
7 降 TURN 

22 の 9 IF D$<>A$ THEN 9 
23 の 9 SC=SC+T19:PLAY'"O3C1AO" :E= 
E+] : IF E<>H--ME+1 THEN 9 の 必 TURNM 
249 LOCATE 2 0:PRINT"BONUS 1 
99" :SC=SC+100:ME=ME+1 :PLAY"O 
4C1DEFG:O2C1DEFG" :FOR ri=⑦ TO 
2909:NEXTT _ 

25 り P=P+30:H=H+6: IF ME=3 OR 

ME=6 OR ME=10 THEN 280 
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レン グ 坦 の リン BASIC プ ロ プ ラム リス ト 


| 110 行 人 の ド 彼 に 曽 数 (ME) 、 の こり の リン ゴ の 数 (H-ME 
Im E)、 の こり の 人 数 (3- XE) を 表示 する 。 
120 行 座標 X 、 Y に レン ガ (B$) を 表示 する 。 「 
130 行 と の キー が 押さ れ た か 、 チェ ッ ク し て (8)、 新しい レン 
ガ の 座標 ( X1Y1) を 保存 する 。 
140 行 も し 、 何 か キー が 押さ れ て いた ら 、 移 動 音 を 出す 。 
150 行 180 行 押さ れ た キー に よ り 、 レ ン ガ を 」 上 左右 に 移動 
する た め に x 庫 標 と Y 座 木 を ひと つ 増し た り 減ら し た りす る 。 
190 行 新しい 座標 (X1 Y1) に レン ガ を 移動 表示 する 。 
200 行 レン ガ の 進 も うと し て いる 座 橿 ( X。 Y) に 何 が あ る か 調 
| べ る 。 また 、 レン ガ が 動け な く な っ て IA ボ タン が 押さ れ た か ど 
うか 調べ る 。 押さ れ て いた ら 310 行 へ 飛ぶ 。 ーー 
210 行 レン ガ (B$) が 進 も うと し て いる 所 に 、 残 り 当 (TS) また 
「 は レン ガ (.B$) が あっ た ら 、 270 行 に 飛ぶ 。 
220 行 レン ガ ( B$) が 準 も 2 し て いる 所 が リン ゴ (A$) で な か 
っ た ら 、 メイ ン ルー プ の 先頭 (90 行 ) に 飛ぶ 。 
230 行 ここ に 来 た 時 は 、 レ ン ガ (B$) が 肖 も うと し た 位置 (X、 
Y) に リン ゴ が あっ た 時 で 、 スコ ア (SC) に 10 点 加え て 、 音楽 を な 
らし 、 取っ た リン ゴ の 数 (FE) を ひと つ 増 や す 。 また 、 取っ た リ 
ンコ の 数 が 、 規定 の 数 に 吉 し て v 、 ヽ な けれ ば 90 行 へ 飛ぶ 。 
240 行 ひと つの 面 を クリ ア し た ら 、 の さして 。 100 点 を 
スコ ア (SC) に 加え 、 面 数 (ME) を ひと つ 増 や す 。 し 音楽 
を な らし 、 一 定時 間 待つ 。 
| 250 行 残り 当 の 数 (P)、 リ ン ゴ の 数 (HH) を 増やし 、 曽 数 (ME) 
が 、3, 6, 10 の いずれ か で あれ ば 280 行 へ 飛 * 
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269 GOTO 5 賠 
270 X=X1 :Y=Y1 : GOTO 9 の 攻 TURN 
2890 F=ME*199:LOCATE 2, の :PRIN 
T"SPECIAL BONUS" :F:FOR I= の 
O 20009:NEXT 降 TURM ' 
299. PLAY"O3C4EG6R1G6R1G4ECDE 
6DC8 " ETURN 
399 SC=SC+TF :GOTO 50 攻 TURN 
319 PLAY'O1E1FDC4" : XE セ =XE+ 1 : 1 
F XE<3 THEN 50 攻 TURN 
329 LOCATE 9, 19:PRINT"GAME O 
VER " 隆 ETURN 
339 PLAY'G6CRCECRCEGG : R6GCRC 
ECRCEG" 攻 TURN 
349 IF HI<SC THEN POKE &H783 
A, SC ン 109, SC MOD 100 攻 TURM | 
359 LOCATE 9, 12:PRINT"REPLAY 


: IF TR<>1 THE 


379 RUN 


250 行 に -P=P 十 30 よい う の が ある ね 。 
この 30 を 少な くす れ ば (た と ぇ ば 20 と 
か 10 と か )、 じ ゃ まな 残り 雪 を 減ら すこ 
と が で きる の だ 。 
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夫 決 勝 戦 


1PLAYER 
2PLAYER 


りり)r 〇 り ! 呆 


詞 つ ーー 


ざ 映 財 


1 


ー マ へ で 


せ か いけ っ し ょ ) せん 


つ な ひ き 世 界 決 有 戦 


ゝ けつ レ いら NN 
せ か \ し ょ う せ / 病 馬 寺 


つ な ひ まき 世界 決勝 
BASIC プ ログ ブラ ーー 


19 CLS:PALETB の 17, 48, 33, 2 :L 

OCATE 9, 19:PRINT"1 PLAYER":L 

OCATE 9, 12:PRINT"2 PLAYER" :P 

ーー1 隆 TURN 

2 の 0 LOCATE 7,. 11 一 P:PRINT" ":LO 

CATE 7, 11+P:PRINT CHR$ (207) : 

S=STR1IG (の ⑳) : IF S=2 THEN P=ーP TURN 

30 IF S=1 THEN P= (P+1) 2+1 :G 

OTO 5 の 必 TURM 

4 の 0 FOR 」= の TO 300:NEXT: GOTO 

2 の 必 TURN 

5 の 9 CLS:VIEW:CGEN 2:CGSET 1, 9 

:SPRITE ON:C= の 9 の :PALETB 0 の , 17, 4 

8, 33, 2 降 TURM 

560 IF P<>]1 THEN 8 の 必 TURM 

79 LOCATE 1, 9 :PRINT" COMPUTER 

! EETURM 

80 FOR I= の 9 の TO 1:DEF SPRITE 』 
(⑳, 1, の , 1, の ⑳) =CHR$ (17) +CHR$ (1 

6) +CHR$ (1 9) +CHR$ (18) :DEF SPR 
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10 ね 画面 を 消去 する 。 そ し て 、 パ レッ ト 0 の カラ ー コ ー ド を 

設定 。 こ れ で 、 バッ ク が 青 に な る 。 そ の 後 画面 中 央 に 、 ひとり 

用 ふた り 用 の 選択 表示 を する 。 

し の り 用 、 泊 が に り 用 の キー 入力 受け 付け 、 セレ クト ボタ ン ( 
= の) が 指 され た ら 、 刀 * ボ ボー CHR$( 207) ) を 上 下 に 動か す 。 

スタ ー ト ボタ ン (S= 1) が 押さ れ た ら 、 ひと り 用 か ふた り 

用 か の フラ グ を セッ ト し て 、 50 行 へ 飛ぶ 。 

40 生 ROR 六 の 空 リレー プ で ウェ イ ト を か け て 、 20 行 に も どる 。 
50 生 画面 を 消 二 し て 、 BC 画面 を 表示 。 で し て 画面 モー ド を 「 
設定 し 、 スプ ライ Pe その 後 、 2 パレ ッ ト 0 の カ 

ラー コー ド を 設定 し 間 ッ ク の 色 を 音 こす る 。 
60 行 ひと 計時 り 放 か の 着 ょ た り 用 な ら 80 行 へ 。 
70 行 0 り 用 の 場合 、 対戦 相手 を ヾ COMPUTER2 と 表示 する 。 
80 行 スプ ライ ト の 0 、 1 番 に 、 マ リオ を 定義 する 。 スプ ライ 


ト の 2 、 3 番 に 、 ルイ ー ジ ( 緑 色 の 服 を 着 て い る ) を 定義 する 。 


ITE 1+2, (1, 1 の の の) =CHR$ (16) 
+CHR$ (1 7) +CHR$ (18) +CHR$ (19) : 
NEXTT 降 TURM 

99 S=STRIG (の ) 隆 TURN 

10 の 0 IF S<>8 AND S<> の THEN 13 
の 性 TURN 

11 の 9 IF S<>S1 THEN C=C+1+RND ( 
_ の?) 降 TURN 

12 の 9 S1=S 降 TURN 

13 の 9 ON P GOSUB 179, 180 の 攻 TURM 
149 IF ABS (C) >59 THEN 220 
159 FOR 1= の TO 1:FOR J= の TO 
1:SPRITE 1I*2+ 了 , 160+C+ (I 一 1) *9 
6+J*16, 152 :NEXT:NEXTT 必 TURN 

169 PLAY"T1O3C2F4R6F2C4" :GOT 
O 90 攻 TURN 

170 C=C-RND (2) : RETURN 
189 S=STRIG (1) 必 TURN 
1990 IF S<>8 AND S<> の 9 THEN RE 
TURN 攻 TURM 「 

2090 IF S<>S2 THEN C=C-1-RND ( 
2) 攻 TURN 

219 S2=S:RETURN 

229 LOCATE 11,. 5:PRINT"WIN !! 


"iPLAY"T7M1Y203A2A1A1A4B2A2B 


昌和 


Cee 0 


90 行 入力 され た 、 
100 生 囚 キー($ = 6852 ポー が 放 き れ た 庄 e ほ 、 3 
に 飛ぶ 。 
110 行 以前 に 入力 し た キー ー( 1) と 今 入力 され た キー ー( S ) が 同 
じ で な か っ た ら 、 マリ オ の 移動 位置 (C) を 計算 する 。 
| 120 生 今 入力 され た キー ー(S) を 31 に 過 鮭 する 。 
130 行 ゆ と り 用 か ふた り 用 か で 四 処理 を する の で ひと り 用 の 
と き ! ほ (Pー1 ) 170 行 へ 、 2 人 用 の と き は (P= テ 2) 180 行 へ 分 
| 収 す る 。 
「 ゲー ム ォ ー バ ー の 判断 。 マリ オォ 、 ルイ ー ジ の どちら か 
| 和 後 の 株 ま ・ で 来 た ら 、 220 行 へ 隊 ぶ 。 
中 き 移 動 を し て いま す 。 110 行 170 行 180 
笠 - ー210 行 で | し な 移動 量 量 に し た が っ て 左右 に 科 移動 す る 。 
160 行 音楽 を 演 圧 し て 、 90 行 に も どり ます 。 
170 行 ひと り 用 の と き の コ ンピュータ の 引 く 別 き を 計算 し て い 
ます 。 ここ の RND( 2 ) の ` 2 7 を も っ と 大 き な 数 に する と 、 32300 
ピュ ー タ の 引く 力 が 強く な り ま す 。 ' 
180 和 ふた り 用 の と き の PLAYER 2 の キー 入力 ( S ) を 受け 付け 
190 和 PLAYER 2 が 


Al キー 以外 の キー( 8 ) を 押し た か 、 何 
| も 押さ な か っ た ら 、 こ の サブ ルー チン か ら も どる 。 
200 行 PLAYER 2 の 以前 に 入力 され た キー( 82 と 、 分 入力 さ 
れ た キー( 8 ) が 同じ で な か っ た ら 、 引 く 力 を 計算 する 。 


た \ 


210 行 PLAYER の 今 入力 され た キー( S ) を S2 に 人 避 する 。 
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2A2A1AA1A4 " NEETURN 

239 LOCATE 8, 3 : IF C>9 THEN P 
RINT" PLAYER 1 ":GOTO 270 攻 TURN 
249 ON P GOTO 259, 260 


259 PRINT" COMPUTER  ":GOTO 
27 の 降 TURN | | 
269 PRINT" PLAYER 2  " 攻 TURM 

2790 IF STRIG (の ⑳) く <>1 THEN 270 隆 TURM 
289 FOR !=⑳ TO 599:RUN 性 TUR 


ひと り 用 で 、 ユ ンピュータ に 勝つ の な ん か 朝 メシ 前 、 と いう 体力 
派 の 人 が 5$ し い * ヽ だら 、 コ ンピュータ を も っ と 強く し て 対戦 し て ろ 
よう 。 170 行 に RND(② と いう の が ある よね 。 この カッ コ の 中 の 数 
を 大 きく すれ ば 、 ュ ン ピュ ー タ は さら に 強く な る ん だ 。 
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つ な ひ き 世 界 決勝 戦 BASIC プ ログ 4 さ 


220 行 ゲー ム オ ー バ ー の 処理 。 勝利 (WIN ! ) 表 示 を し て 、 フ ァ 
ン ファ ー レ を 注 生 し ます 。 時 

230 行 PLAYER 1 が 勝っ た と き 、WIN ! の 上 に `PLAYER 1 

と 才 示 され ます 。 よう よう 

240 行 130 行 と 同じ で 、 ひ ほり HP ニ 1) か ふた り 用 (P ニ 2) 

か で 、250 行 と 260 行 に 分 岐 し ます 。 

250 行 230 行 と 同じ で 、COMPUTER が 勝っ た と き に 、^CO 

MPUTER と 表示 し ます 。 

260 行 230 行 と 同じ で 、PLAYER 2 が 勝っ た と き に PLAYE 

R 2 ^ と 表示 し ます 。 

270 行 次 の 回 の スタ ー ト 待ち で す 。 ス ター ト ポ ボタン ( 8 =1) 

2 し の 状態 待ち 和夫 


280 行 FOR 文 の 空 ル ー プ で 、 一 定時 間 待 っ て か ら 、 再 び RUN 
し ます 。 
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マリ オ と 怪物 リン ゴ バ ー ト II 


カセ ッ ト テ ー ー プ を 「 マ リオ と 怪物 リン ゴ の 3 つゆ の BG グラ フ 
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い せん 


地 謀 戦 車 GOIGOIGOI 
BASIC プ ログ ラム リス ト 


19 CLS:CGEN 2 :CGSET 1, 1 :VIEW 
:SPRITE ON:PALETB の, 13, 48, 39 
。 2 4 

2 の 0 DEF SPRITE 0 (1, 1, の , の , 1) = 
"ペペ ポ ビ ピ プ " :DEF SPRITE 1, (3, 1, ⑳ 0 
。 の ) =CHR$ (1 8 の) +CHR$ (1 8 1) +CHR$ 
(182) +CHR$ (183) 了 必 TURN 

3 の SPRITE 0 の, 116, 60 性 TURM 

4 の 9 LOCATE 19, 22:PRINT"PUSH S 
TART KEY !!":IF STRIG (の ) <>1 
THEN 40 攻 TURN 

50 CLS:SPRITE 0 の 攻 TURM 

690 FOR 1!=12 TO 23:LOCATE の, ! 
:FOR J= の TO 27:PRINT CHR$ (20 
2+RND (3) ) : : NEXTT : NEXT 攻 TURN 

70 S= の :X=12: ヤ =12 

80 FOR I』=Y-1 TO Y+1:IF SCR$ ( 
I, 1 1) =CHR$ (192) THEN 280 必 TURM 
99 LOCATE 1I, 11:PRINT CHR$ (32 
) : 必 TURN 


10 行 画面 を 消去 し て 、 漠 の 拓 証 を し ます BC 画面 を 
央 が し た り 、 ス プラ イト 表示 を 可能 に し た り 、 背 景 の 色 を 青 に 
し た り し て いる の が 、 ここ で す 。 

20 行 スプ ライ ト の 0 番 に 地 庶 戦 車 、1 番 に 爆発 を 定義 し て い 
ます 。 こ こ で い べ ポ ビ プ ′ と な っ て いる の は 、 CHRS(174)C 
HRS(175)+CHRS(172) CHRS(173) と 同じ 意味 で 、 この 方 が 
知 か く て すっ きり し ます 。 

80 行 地 克 戦 車 を 画 四 央 上 部 に 表示 し ます 。 

40 行 スタ ー ト キー が 押さ れる まで 、 こ で 待ち ます 。 ーー 
50 行 こ か ら ゲ ー ム スタ ー ト で す 。 タイ トル 赤 面 と 、 地 左 戦 
芋 な 第 し ます 。 

60 生 画面 中 段 か ら 下 に 、 これから 進ん で いく 地面 を か きま す 。 
2 重 の FOR-NEXT ル ー プ が あ 0 ます が 、 内 仙 ( | ) の 方 が 横 ( 
が 軸 に 、 外 側 ( T) の 方 か 縮 (Y 方向 ! に 地面 を か いて 行き ます 
70 行 初期 設定 で す 。 地底 戦車 の 座標 ( Y ) と 爆弾 処理 ロボ ッ 

ト の X 庫 標 (X ) を 決め て いま す 。 _ 

80 行 地底 戦車 の 左前 方 前 方 、 石 前 方 の キャ ラク タ を 調べ ま 
す 。 も し 、 そこ に 地雷 が あっ た ら 、 280 行 へ 飛び ます 。 

90 行 80 行 で 調べ た と 
ころ が 地雷 で な いと > こ 
き に 、 こ こ で 地面 を 消 6 
し ます 。 っ 0 


79 


199 NEXT:IF SCR$ (X, 6) =CHR$ (1 
9 2) THEN SC=SC+19:PLAY"O4E2* 
:LOCATE O, 5:PRINT CHR$ (199) : 
:GOTO 130 

119 IF SCR$ (X, 6) <>CHR$ (32) 
HEN LOCATE O, 5:PRINT" 『" ::GOT 
O 290 星 TURM 

129 LOCATE O, 5:PRINT" ": 
139 LOCATE X, 6:PRINT CHR$ (2 3 
4) : 上 EETURN 

149 O=X 降 TURM 

150 SPRITE の , (1+Y) *※8+4, 108 
169 S=STICK (の ⑳) : エ =STRIG (の ) 寿 TURN 
170 IF S=2 AND Y>1 THEN Y= ニ ヤー 
] 上 EETURN 

189 IF S=1 AND Y<26 THEN ヤ Y=Y 
+] 性 TURN 

199 IF =4 AND X>1 THEN X=Xー 
] 降 TURN ' 
2 の 9 の 9 IF =8 AND X<27 THEN X=X 
二 1 降 ETURN 

219 B=RND (20) +4 

229 LOCATE の 23:FOR 1I= の TO 2 
7:IF B=I THEN PRINT CHR$ (192 
) j: :GOTO 240 降 TURM 


80 


地底 戦車 GOIGOIGO! BASIC プ ログ ラム リス ト 

wa この NEXT は 80 行 の FOR 交 と 対 に な っ て いる も の で ま 
こ で 、 爆 誠 処理 ロボ ッ ト が 地 埋 を 処理 し た か どう か を 判断 し 

て いて 、 処理 し た ら ば 、 スコ ア (SC) に 10 点 を 加え 、 処理 音 を な 

らし ます 。 そ し て 、 処理 し た 場 呈 に 護 (CHRS(199)) を た て て 、 

130 行 に 飛び ます 。 


ば くだ ん 


0 行 eine > 爆弾 処理 ロボ ッ ト が 地面 と ぶつ か っ た と き に 
井 誹 処理 ロボ 、 が ト を 消し て 、 290 行 へ 飛び ます 。 時 
120 行 炒 処 理 ロ ボッ ト の 移動 の た め に 、 以 前 いた と ころ の 爆 
処理 ロボ ポット を 消し ます 。 「 
130 行 移動 後 の 場 所 に 爆 弾 処理 ロボ ッ ト (CHR(234)) を 表示 

し ます 。 。 」 

140 行 現在 の 爆弾 処理 ロボ ッ ト の 座標 ( X ) を 0 に 退避 させ ます 。 
150 生 地 記 科 車 (スプ ライ ト の 0 番 ) を 表示 し ます 。 

160 生 キー の 入力 を 受け 付け ます 。 

170 行 ご 180 生 地 具 戦車 が 画 か ら は み 出 さ な い 位 置 に いた 
ら 、 左 右 ど ちら か キー の 押さ れ た 方 向 に 座標 (Y ) を 移動 きせ 
ます 。 

190 行 ~ こ 200 行 爆 基 処理 ロボ ッ ト が 画面 か ら は み 出 さ な い 位置 
EE 、 HB| 国 キー の どちら か が 理 さ れ て いた ら 、 諾 右 ど 
ちら か に 冊 標 (X) を 移動 し ます 。 

210 行 地 二 (B) の 出現 如 度 を 求 ee 

め ま す 。 こ この 数 値 の 20 を 小さ く | 
すれ ば 、 地 夫 の 数 が ふえ ま す 。 上 


220 行 210 行 で 求め た 出現 疾 度 に ミ 
まま の て 。 地雷 を 表示 し ます 。 
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239 PRINT CHR$ (292+RND (3) ) : 性 TURN 
249 NEXT 性 TURM 

259 LOCATE 19, の 9:PRINT "SCORE= 
"SC ETURN 

269 PLAY"'O5C" 

270 GOTO 80 ETURN 

289 SPRITE 9:SPRITE 1, (1+Y) * 
8+4, 198 :GOTO 300 攻 TURNM 

299 SPRITE 1, (1+X) *※8 士 4, 68 必 TURN 
399 PLAY"'O1C4O2F2":LOCATE 10 
, 15:PRINT"SCORE=" : SC:LOCATE 
19, 17 :PRINT"GAME OVER" 攻 TURM 
319 HS=PEEK (&H783A) *256+PEEK 
(&H783B) : IF HS<SC THEN HS=SC 
IETURN 

329 LOCATE 8, 13:PRINT"HI-SCO 
RE=":HS:POKE &H783A, HS プ 2 5 6, H 
S MOD 256 性 TURM 

339 LOCATE 9, 29:PRINT"TRY AG 
AIN ?":IF STRIG (9) <>1 THEN 3 
3 0 攻 TURN | 

34 の 9 RUN 攻 TURM 


地 克 戦車 GOIGOIGOI BASIC プ ログ ラム リス ト 
230 行 地 電 以 外 の と ころ に 地面 を 表示 し ます 。 
240 行 これ は 、 220 行 の FOR 放 と 対 に な っ て いる NEXT で す 。 
250 行 画面 最 上 段 に スコ ア ( SC) を 表示 し ます 。 
260 行 移動 音 を な らし ます 。 
270 行 メイ ン ルー プ の 先頭 の 80 行 に も どり ます 。 
280 行 地底 戦車 (スプ ライ ト 0 番 ) を 消し て 、 爆 発 (スプ ライ 
ト 1 番 ) 表示 を し ます 。 二 
290 行 井 闇 処理 ロボ 、 ッ ト が ぶつ か っ た と き に 、 こ こ で 爆発 ( ス 
プラ イト 1 番 ) を 表示 し ます 。 
300 行 ゲー ム オ ー バ ー の 処理 で す 。 . ス コア (SC) と 、 ゲー ム 
オー バー 表示 を し て 、 終了 音楽 を 演奏 し ます 。 
310 行 ハイ スコ ア (HS) を 783A 番 地 か ら こり だ し て 、 . ス コ 
ア (SC) が ハイ スコ ア を 越え て いた ら 、 ハ イス コア 登録 で 3 
「 320 行 画面 に ハイ スコ ア (HS) を 表示 し て 、 メモ リ の 783A 
| 番地 に 格納 し ます 。 


330 行 ご 340 行 も う い 衝 Ak 了 どう か の 入力 待ち で 
す 。 ス ター トキ ー が 押さ れる まで 、 こ こ で 待っ て いま す 。 
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BASIC プ ログ ラム リス ト 


10 VIEW:CGEN 2 :CGSET 0, 1:DIM 
し (16),R(16), L$ (2) :L$ (1) =*" PR 
O" :L$ (2) =" AMA" :X=13:Y=8 
20 HI=PEEK (&H783A) *199+PEEK ( 
&H783B) :W$=CHR$ (195) :B$=CHR$ 
(2 11) 
39 FOR 1=1 TO 16:L (I) = の:R (I) 
ー2 6 : NEXT 攻 TURM 
49 LOCATE 1, 1 の 9:PRINT"LEVEL ? 「 
(A) ->AMA 〔(B) 一 >PRO* | 
59 T=STRIG (の ⑦) : IF T<4 THEN 50 / 
RETURM 
69 LOCATE 1, 19:PRINT" 
79 LE=T ノ 2 :LOCATE 6, 19 :PRINT 
L$ 本 グ 4) 性 TURW 
89 LOCATE 21, 19:PRINT HI 
99 S=STICK (の ) : エ =STRIG (の ) 攻 TUNW 
109 LOCATE X, Y:PRINT" " 攻 TURW | 
11 の IF S=8 AND SCR$ (X, Yー1) =* 
" THEN Y=Yー1 : IF Y<1 THEN Y= 
1 
129 IF S=1 AND SCR$ (X+1, Y) = 


am ノム メ 2 っ 2 
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10 行 画面 モー ド の 設定 を し て 、 BG 画 面 を 表示 し ます 。 そ れ か 
ら 、 ゲー ム の 中 で 必要 な 配列 の 写 計 を し て いま す 。 こ の 配列 の 
| 天 R は それ ぞ れ 、 た な 、 石 の ブロ ッ ク の 座標 を 格納 する た め 
の も の で 、 添え 字 の 数 値 が Y 庫 擦 を 表し て いま す 。 

20 行 ハイ スコ ア (HI) を メモ リ の 783A 番地 か ら と り だ し ま 
す 。 そ し て 、 レ ン ガ (W$) と ボー ナス レン ガ (PB$) を 定義 し 


30 行 左右 の レン ガ の スタ ー ト 時 の X 座 標 を 、 配列 に 格納 し ま 


40 行 レベ ル 選 択 時 の メッ セー ジ を 表示 し ます 。 
50 行 レベ ル 入 力 の た め の キ ー の 受 け 付 け 待ち で す 。[A、 国 以 
外 の キー は 受け 付け ませ ん 。 「 
60 行 レベ ルカ 択 され た ら 、 40 行 で 表示 し た メ メッ セー ジ は ネ 
必要 な の で 、 こ で それ を 消し て いま 際 宰 自 の 数 を か ぞ え る 
の が めん どう < さい と き は 、 こ の 行 は 単に VIEW E で 
も いい で す 。 ー 
70 行 選択 し た レベ ル (LE) を 交 字 (L$) で 画面 下段 に 表示 
し まず 。 

60 行 ハイ スコ ア (HID を 規定 の 場所 に 表示 し ます 。 

90 行 キー の 入力 を 受け 付け ます 。 

100 生 移動 の た め に 、 自分 を 画面 か ら 消し ます 。 

110 行 自分 の 上 の 部 分 に 何 も な か っ た ら 、 上 へ 1 つ 移 動 し ま 
和 . た だ し 、 わく より 外 へ は 行け な いよ うに し て あり ます 。 
120 行 自分 の 右 の 部 分 に 何 も な か っ た ら 、 右 へ 1 つ 移 動 し ま 
す 。 た だ し 、 わ く よ り 外 へ は 行け な いよ うに し て あり ます 。 
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" THEN X=X 二 1:IF X>25 THEN X 
=25 
139 IF S=4 AND SCR$ (X, Y+1) =" 
"THEN Y=Y+1:IF Y>16 THEN Y 
=1 56 
149 IF S=2 AND SCR$ (Xー-1, Y) =* 
"THEN X=Xー]1 : IF X<1 THEN X= 
1 
159 IF SCR$ (L (Y) , Y) =B$ THEN 
P=29:GOTO 170 隆 TURWM 
169 P=5 
179 IF 十 =4 AND L (Y) > の THEN L 
OCATE L (Y) , Y:PRINT" " :L (Y) =L 
(Y) 一 1 : SC=SC+P :BEEP 攻 TURM 
189 IF SCR$ (R (Y) , Y) =B$ THEN 
P=20:GOTO 200 
19 の 9 P=5 
209 IF T=8 AND R (Y) <26 THEN 
LOCATE R (Y) , Y:PRINT" " :R (Y) = 
R (Y) + 1 : SC=SC+P:BEEP 降 TURNM 
219 LOCATE XY:PRINT CHR$ (21 
2) NRETURN 
22 の 9 IF M>1 THEN 310 必 TURM 
239 LY=RND (1 6) +1 : RY=RND (16) + 
1 : BN=RND (1 6) 
249 IF LY=Y OR RY=Y THEN 230 
IRETURN 


レン ガ 地 獄 BASIC プ ロブ ラム リス ト 


130 行 110 行 の 逆 の 処理 で す 。 下 へ 進み ます 。 

140 生 120 行 の 逆 の 処理 で す 。 た へ 進み ます 。 

150 行 現在 自分 の いる Y 庫 探 と 同じ 位置 の 左側 の レン ガ の 

端 が ボー ナス レン ガ だ っ た ら 、 く ず し た と き の 得点 (P) を 

20 点 に 設定 し ます 。 ボー ー ナ ス 点 を 増やし た いと き は 、 P の 値 を 

増やし て く だ さ い 。 

160 生 普通 の レン ガ の 得点 (P) を 設定 し ます 。 

9 自分 の 左側 に レン ガ が あっ て 、 BI ボタ ン が 押さ れ た 
、 左 側 の レン ガ を ひと つっ へら LE、 XP 6) に 得点 (P) 

ます 

180 こ 200 行 150ー 170 行 と 同 じ 処理 を 右側 の レン ガ に 対 し て 行 

っ て いま す 。 150 一 170 行 の 説明 の 写 の 部 分 を ` ほ 導 お し 

て 読ん で 下さ い 。 で すか ら 、 右 ま た は 左側 だ け レ ン ガ を の びる 

よう に し た いと き は 、 左側 だ け な ら 180 一 ー200 行 を 、 右側 だ け な ら 

150 一 ー170 行 を 取り の ぞ け ば 、 片方 か らし か の ぴ び て こない よう に 

な り ま す 。 

210 行 新しく 移動 し た 位置 に 、 自分 (CHRS(212)) を 表示 し ま 

す 。 も し 、 自分 の 形 が 気 に 入 入ら な けれ ば 、 この 212 を 他 の 数 字 紀 


括 え て さい 。 ち が は や か 
220 行 レベ ル の 違い に よっ て 、 レ ン ガ の の びる 速 さ を 変え て い 
まあ 


| 230 行 決 に 右 (R Y ) と 左 ( LY ) の どこ の レン ガ を の ば すか 決 
め て いま す 。 まだ 、 ボ 一 ー ナ スレ ン ガ を 出す 頻度 (BN) も こ 
決め ます 。 

240 行 の ば そう と し た 座標 に 自分 が いた ら 、 や り 直 し で す 。 
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250 L (LY) =L (LY) +1 : R (RY) =R (RY 

) 一] NRETURN 

260 LOCATE L (LY) , LY: IF BN= の 

THEN PRINT B$:GOTO 280 
270 PRINT W$ 攻 TURN 

289 LOCATE R (RY) , RY: IF BN=0 の 

THEN PRINT B$:GOTO 300 
29 の 9 PRINT W$ 必 TURN 

309 IF R (LY) -L (LY) =1 OR R (RY 

) デー ルト (R ー| THEN きす 40 

310 TIT=TI+1:iLOCATE 1 21:PRIN 

T エ "TIME "jj 上 EETURM 

320 M=RND (LE) : GOSUB 3309:GOTO 
9 0 IETURN 

330 LOCATE 15, 21:PRINT" SCORE 
"5jSC:RETURN RETURN 

940 PLAYTO2COABCS"iLOOATE 9 
8:PRINT'GAME OVER " : SC=SC+T1I : 

GOSUB 330 

350 IF SC>HI THEN POKE &H783 

A, SC グ 100, SC MOD 100 

36 の 90 LOCATE 9, 190:PRINT"REPLAY 
6 

370 =STRIG (の ⑳) : IF <>1 THEN 
3 7 ETURN 

38 の RUN ETURM 
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レン ガ 地 獄 BASIC プ ロブ ラム リス ト 


250 行 230 行 で 決め た 場所 の レン ガ を 1 つ 増 や し ます 。 

260 行 ボー ナス レン ガ の 頻度 に より 、 ボ ー ナ スレ ン ガ (BS$) 
を 表示 し ます 。 そ し て 280 行 へ 飛び ます 。 

270 行 普通 の レン ガ (WS) を 表示 し ます 。 

300 行 今 の ば し た と こ ろ の レン ガ の 、 右 と 左 が くっ つい た か 
の り か 判断 し て い ます 。 く っ つい て し まっ た ら .340 行 の ゲー ム 
オー パー へ 飛び ます 。 ミニ 

310 行 タイ ム (TI) に 1 を 加え て 、 画面 下 彼 に 表示 し ます 。 

320 行 レベ ル に よる 、 レン ガ の の びる 速 さ (M) を 計算 し て 、 
メイ ン ル ー チ ン の 先頭 の 90 行 へ も どり ます 。 

330 行 画面 の 下 科 に スコ ア (SC) を 表示 する サブ ルー ナチ レン 

記 画面 に 表示 し た 後 、 GOSUB で 呼ば れ た 行 に も どり ます 。 

340 行 ゲー ム オ ー パ ー の 処理 で す 。 終了 音楽 を 表示 し て 、 ゲ ー 
ム オ ー バ ー を 表示 し ます 。 最終 得点 と し て 、 ス コア (SC) と タ 
イム (TI) の 合計 が 表示 され ます 。 

350 行 スコ ア (SC) が ハイ スコ ア (HI) を 越え た ら 、 メモ リ 

の 783A 番 地 に ハイ レン っ し て 格納 し ます 。 


うり ょ く ま 


9360 一 380 行 も うい ち ど ゲ ー ム を 始め る か ど う か の 入力 待ち で 
す 。 ス ター ト ボ タン が 押さ れる まで 、 こ こ で 待っ て いま す 。 
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ドン 3 5 いい 
で いく 


へ へ 会 守 リロ つ 全 
夫 べ ょ 3) 
員 で で っ 凡 や 


つ 全 ぐ 


SW で 人 る し 画 尽 で と 
ふ ホー3 衣 一 ベー ジリ AGtG 
や で お いし を 


(レー 


は つ す る ダマ ちゃ ん の 8 


BASIC ブ プロ グラ 


19 CGEN 2:CGSET 1, 1 :CLS:SPRI 

TE ON:S= の 0:P=]1 :X= ニ 2 の 0 の:Y= テ 1 2:BN=1 
90 の 性 TURN 

20 PALETB 3, 48, 4 1, 39, 22 降 TURN 

30 DEF SPRITE ⑳ (3, の 9, の , の ⑳, の ⑳) = 
CHR$ (223) 上 EETURN 

40 DEF SPRITE 1, (3, 1, 9, 9, の ⑳) = 
CHR$ (18@) +CHR$ (181) +CHR$ (182 

) + す CHR$ (183) 隆 TURN 

50 VIEW:A=1 9 :XX=X:Y ヤ =Y:E=1 :U 
=ーA+P:HS=PEEK (&H783A) *256+PEE 

K (&H783B) : LOCATE XY:PRINT" 

” ETURN 

69 FOR IT=1 TO U:M=RND (2 5) +2 : 
N=RND (17) +2 :COLOR M N, 3 :LOCA 

TE M N:PRINT CHR$ (2 19) :NEXTT 隆 TURN 
70 FOR Q=1 TO U:J=RND (2 5) +2 : 
W=RND (17) +2 : COLOR 了 J 了 , W 3 :LOCA 

TE J Wi:PRINT CHR$ (2 2 1) :NEXTT 必 TURM 


10 行 画面 モー ド の 設定 を し て 、 ス プラ イト の 表示 を 可能 に し 
ます 。 そ し て 、 スコ ア ( 8) 、 障 物 (P)、 タイ ム ( BN) を 初期 
人 花 し 、 タマ ちゃ ん の 最初 の 位置 ( X, Y) を 決め ます 。 
20 行 BC の パレ ッ ト の 3 番 を カラ ー コ ー ド に 従っ て 、 設 定 し 
な お し ます 。 ーー 
30 行 スプ ライ ト の 0 番 に 、 タ マ ち ゃ ん (CHRS$(223)) を 定義 
し ます 。 生ま ei 肖 

| 40 行 スプ ライ ト の 1 番 に 、 爆発 表示 用 の キャ ラク タ を 定義 し 
ます 。 

50 行 BG 画 面 を 表示 し て 、 一 面 クリ ア す る こ ie 負 で ど に も ど 
さき な けれ ば な ら な い 変 数 を 初期 化し ます 。 それ か ら 、 ハ イス コ 
7(H S ) を メモ リ の 783A 番 地 か ら 取 り 出 し ます 。 

60 行 画面 の 任意 の 座 林 (M, N) に 茂み (CHRS(219)) を U 
個 表示 し ます 。 この U は 、 ーー 面 クリ ア す る ご と 【 に 増え て いき ま 


70 行 60 行 と 同じ よう に 、 画 の 任意 の 上 座 様 (】 、W) に 落と 
し 穴 (CHR$(221)) を U 個 表示 し ます 。 こ の U は 、50 行 で 数 
を 決め て いま す の で 、 ンー [ “ 
50 行 の A の 値 や 、 U 
ーA 二 と いう の を 
定数 に し て し まえ ば 、 
面 が 進ん で いっ て も 
障 害 物 が 増え る こ 
は あり ませ ん 。 


ロロ エー こら COREE 「 き の 
用 コ 間 に に ご) 
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80 FOR 征 =1 TO 5:F=RND (25) +2 : 
G=RND (17) 2 :COLOR 『, GL 3:LOCA 


TE F, G:PRINT CHR$ (2 15) : NEXT ETURM 


990 LOCATE 16,. 21:PRINT"SCORE“ 
も DOAT ま りり 1 COPRINUN MISCOER 
E" :PEEK (&H783A) *256+PEEK (&H7 
83B) 攻 TURN 
100 BN=BN 一 1:LOCATE 1, 22:PRIN 
T"TIME'" :BN:IF BN= の 9 THEN 220 
119 SPRITE の X*8 二 16, Y*8+24:Z 
=STICK (の 9) : IF Z く <>0 THEN PLAY" 
UIOU3 上 “ 
12 の 0 IF 2Z2=4 THEN Y= テ Y+1:GOTO 1 
6 0 ETURN 
1390 IF 2Z=2 THEN X= テ Xー1 :GOTO 1 
6 0 EETURN 「 
1490 IF 2Z 
6 の 
150 IF Z=8 THEN Y=Yー1 EETURN 
169 D$=SCR$ (X, Y) ETURN 
1790 IF D$=CHR$ (219) OR D$=CH 
R$ (221) OR D$=CHR$ (195) THEN 
220 上 ETURN 
189 IF D$=CHR$ (215) THEN 200 


|I 
ーー 


THEN X メ = テ X 二 1 :GOTO 1 


KETURN 


112 


は つ す る タマ ちゃ ん BASIC プ ログ プラ ムリ スト 


80 行 画面 の 任意 の 座標 (上 。 6 、 
を 5 個 表示 し ます 。 
90 行 瑞 曽 の 下 葉 に 、 ス コア (S ) と ハイ スコ ア を 表 が 
ます 。 こ こ で PEEK(…… と し て いる と ころ を HS に 書き か え 
て も 同じ こ Sg 

100 行 タイ ム ( BN) を 1 つ 減 らし て 、 ! 画面 下 算 に 表示 し ます 。 
| ダイ ム が 0 に な っ る た と き は 。 ゲー ー ム オー バー な の で 、220 行 に 飛 
0 る 。 _ 

| 110 行 タマ ちゃ ん (スプ ライ ト の 0 ) を 画面 に - 表 示し ます 。 
そし て 、 キー の 入力 を 受け 付け ます 。 も レキ ー が 押さ れ て いた 
| ら 、 移 動 音 を な らし ます 。 ーー 

| 120-150 生 押さ れ た キー に より 、 タマ ちゃ ん を 上 下 左右 緒 
動 する た め に 、X 護 木 また は Y 座 標 を ひと つ 増し た り 減ら し た 
り し ます 。 各行 に ある GOTO160 と いう の は 、 その 行 の TF 災 
が 成立 し た ら 、 その 下 の 行 の IF 娘 で 調べ る 必要 が な い の で 、 飛 
ば し て いま す 。 この 方 が 、 速度 が 速く な り ま す 。 

| 160 行 タマ ちゃ ん の 移動 する 位置 ( X。Y) に 何 が ある か 、 調 
| べ ま す 。 

| 170 行 160 行 で 調べ た 位置 に 茂み (CHR$( 219) ), 落と し 穴 (C 
HR$( 221) ) 、 カ ベ (CHRSQ195)) の いずれ か が あっ た 場合 、 ゲ 
| 一 ム オ ー バ パー と な り 、220 行 へ 飛び 
ます 。 

180 行 160 行 で 調べ た 位置 に リ レン 
| ゴ (CHRS(215)) が あっ た 場合 、 
| 200 和 5 へ 飛び ます 。 


リン ゴ (CHR$(215)) 


に エー ちら CORE うさ 9 
『 ミ ME う の べ 
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199 GOTO 90 必 TURN 

2 の 909 LOCATE X, Y:PRINT" ":PLAY 
"T104C1D1E1F1G4" : S=S+10 :E セ = テニ E+ 
1 :IF E=6 THEN 280 ETURN 

219 GOTO 9 降 TURM 

22 の 9 SPRITE 9:SPRITE 1, X*8+8, 
Y※8 二 16 EETURN 

23 の 0 PLAY"T5MOV1503A1REORERF3 
ER 井 C1RA3" :PAUSE 100 の EETURN 

249 LOCATE 1 12:PRINT"HIT " 
S” KEY" ETURN 

259 IF HS<S THEN POKE &H783A 
,・S グ 256, S MOD 256 TURNM 

260 IF STRIG (の ⑳) =1 THEN RUN 
270 GOTO 260 攻 TURM 」 
289 LOCATE 6, 12:PRINT" CONGRA 
TLATION!" :LOCATE 8, 14:PRINT" 
BOUNS " : BN : S=S+BN 

299 IF HS<S THEN POKE &H783A 
,・S グ 256, S MOD 256 降 TURM 

3090 P=P+5:PAUSE 39:GOTO 50 必 TURN 


300 行 に 、P 二 5 と いう の が ある けど 、 こ 

5 と い うぅ 数 を 大 きく し た り 小 きく し た 本 人 鍛 、 ン 
ば 、 面 こ LE 攻 え て い (ンー の 生 を 半 5o | 議 SS 
きる 。 0 に すれ ば 、 リン ゴ の 数 は 変わ ら な い 。 


は つ す る タマ ちゃ ん BASIC プ ロブ ラム リス ト 


190 行 メイ ン ルー プ の 先頭 の 90 行 に も どり ます 。 

200 生 リン シゴ を 取っ た と き の 処理 で す 。 リンゴ を 消し て 、 
取っ た 時 の 音 を 出し て 、 スコ ア (S ) に 10 点 加え ます 。 そし て 、 
取っ た リ ン ゴ の 数 (E) を 1 増やし て 、 5 個 取っ た ら 280 行 に 
飛び ます 。 

210 生 90 行 へ も どり ます 。 
220 行 タマ ちゃ ん を 消し て 、 爆発 (スプ ライ ト の 1 ) を 表示 
し ます 。 ーー ーー 

230 行 ゲー ム オ ー バ パー の 菩 楽 を 深 奏 し て 、 少 し 待ち ます 。 
250 行 スコ ア (S) が ハイ スコ ア (HS) を 越え た た ら 、 メ モリ 
の 783A 番 地 に ハイ スコ ア と し て 格納 し ます 。 

260 行 270 行 も うい ち ど ゲ ー ム を 始め る か どう う か の 入力 待ち 
で す 。 スタ ー ト ボ タン が 押さ れる まで 、 こ で 待ち ます 。 

280 行 一 面 ク リア し た と き の 処理 で す 。 ー 閉 クリ アテ し た と き の 
表示 を し て 、 ボー ナス と し て 、 残り の タイ ム ( BN) を 表示 し 
二 . ス コア ($〉 に 加え ます 。 

290 生 250 行 に 同 じ 、 ハイ スコ ア の 格納 で す 。 

300 行 障害 物 の 数 (P) を 5 個 ず つ 増やし て 、 50 行 に も どり ま 
す 。 


ジャ ン ピ ン グ 旗 と り マリ オ 


ペー ジ ガ ら の の 3 3 し 
ラー ノ の 7ー ム 四 と と と と と と と と と と と レ と と と ーー 時 
ぼう ||」 を よこ 


で 、LOAD で きた ら [F 
キー を 押し て 、 コン 
ロラ ーー ロ の マー 


だ 


_ ー レアレア と と と と と と と と どど と と と と と と と と 


|: | 3 : な か ーー 
し 待っ のど どど ちと ジジ アジ どど どど どど と 


っ 得 較 ーー ベー ニー ニー 
の た と ど 。 op アア ど アア と ちと どど どど どど 


トコ 千 > 


の ゲー ム は 「 プ ログ ラム ・ ポ シェ ッ ト Vol. 4 掲載 の 「JUMP MANII、 分 衣 ”。 
年 ・ 作 」 を ファ ミリ ー ベ ー シ ッ ク 用 に 移植 し た も の で す 。 
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て VS で お く 。 
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BASIC プ ログ ラム リス ト 


1 の 9 CGEN 2:CGSET 1, 1:CLS:SPRI 
本 選 ON TUR 

2 の 0 XX=13*8+1 6 :YY=109*8+24:MY= 
り :PX=5:PY=5 : 丁 I=500 の 攻 TURW 

S の 0 DEF SPRITE 9, (3, 9, 9, 9, の ) = 
CHR$ (222) 降 TURN 

4 の 9 VIEW:LOCATE 3, 2 1 : PRINT" 和 1 
ME”:LOCATE 13, 2 1 :PRINT" SCORE 
) EETURN 

り 50 FOR IT= の 9 TO 19:RX=RND (2 3) + 
2 : RY=RND (1 8) + 2 : LOCATE RX. RY: 
PRINT CHRS$ (221) :NEXT 了 性 TURNM 

60 FOR 1」=1 TO 5 :RX=RND (2 3) + 2 
: RY=RND (18) +2 :LOCATE RXRY:P 
RINT CHR$ (1 9 9) : NEX 征 降 TURN 

7 の 0 A=STICK (の ) 攻 TURN 

6 の り IF A=1 THEN MX=1] : PX=1 : GO 和 T 
O 120 星 TURN 

9 の 0 IF A=2 THEN MX= の : PX= の 9 : GO 生 
O 120 の 必 TURM 


NN 


WN 


2200eo の > 


プシ 


FTME 1 イラ SCORE 


が めん ee きよ 


10 行 画面 モー ド の 設定 を し て 、 画 面 を 消 坪 し て 、 プア 
イト の 表示 を 可能 に し ます 。 
20 生 自 機 の 初 の 位置 (X X。 Y Y ) 、 持ち 時 間 (TI) 、 加速度 


フラ グ を 設定 し ます 。 _- 

30 行 スプ ライ ト の 0 番 に 、 自 機 (CHR$(222)) を 定義 し ま 
| 40 行 BC 曽 告 を 表示 し 、 下 庄 に TIME/、 ヾ SCORE” の 婦 
| 学 を 表示 し ます 。 

50 行 画面 の 任意 の 位置 (RX、 RY ) に 、 機雷 (CHRS$(221)) 

を 10 個 表示 し ます 。 

60 行 画面 の 任意 の 位置 (RX。RY) に 、 旗 (CHR$(199)) 

を 5 個 表 示し ます 。 


70 行 に ー 入 力 を 受け 付け ます 。 ー 
80、90 行 入力 し た キー ー の 方 向 に より 、 自 機 を 左 有 に 移動 する た 


| の 、X の 加速 フラ グ (MX PX) を 生え ます 
129 


199 IF A=4 THEN MY=1 : PY=1 : GO 
TO 120 の 必 TURN 

119 IF A=8 THEN MY= : PY= の 
120 IF STRIG (の ) =8 THEN MX=5: 
MY= ニ 5 :PX=5:PY=5:X= ニ X MOD 3 :Y マ =Y 
MOD 3 攻 TURM 

13 の 9 IF MX=1 THEN X=X+1 
140 IF PX= の 9 THEN X=Xー1 必 TURM 
159 IF MY=]1 THEN ヤ =Y+ 1] 攻 TURN 
16 の 0 IF PY= の 9 THEN ヤ =Yー] 攻 TUR 
17 の 0 XX ニーXX+X : マヤ ニヤ YY+Y : TI ニー エエ ー1 攻 TURM 
180 IF (XX>=240) + (XX<=8) + (YY 
>= 1 9 4) + (YY<=16) THEN 260 降 TURN 
19 の 9 IF TI<⑳ THEN 260 攻 TURN 

299 SPRITE の XX YY:LOCATE 9. 
21:PRINT" "iLOCATE 7, 21:PRI 
NT TI 性 TURM 

219 CX= (XX-1 6) 8 : CY= (YY-2 4) ノン 
8 :K$=SCR$ (CX, CY) 降 TURN 

229 IF K$=CHR$ (221) THEN 260 
IETURN 

23 の 9 IF K$=CHR$ (199) THEN SC= 
SC+19:BEEP:LOCATE CX, CY:PRIN 

T" リ 用 TURN 
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あ シー 


亜 空間 X BASIC プ ロ プ ラム リス ト 


100, 110 行 入力 され た キー の 方 向 に より 、 自 機 を 上 下 に 移動 
する た め の 、 YiI の 中 フラ グ (MY, EEY ) を 与え ます 。 
120 行 IAI ボタ ン が 押さ れ た 場 、 加速 フラ グ を リセ ッ ト し ま 
す 。 こ の リス ト で は 、 ポタ ン が 押さ れ た ら 、 低 祭 で 一 定 
に な る よう に し て あり ます が 、 ミー…… 以 降 を 消 二 すれ ば 、 
ボタ ン を 押し た 時 点 の 速 さ の まま 、 一 定 速度 に な り ます 。 
130160 行 80 一 ー110 行 で 得 た 加速 フラ グ に より 、 X 方 向 、 Y 方 
向 の 移動 和 の 黄 減 を 人 ゝ ます 。 
170 行 自 機 の 移動 座標 (XX,。 YY) を 計算 し 、 ダ オ ム 4 上 1) 
を 1 減ら し ます 。 
180 行 自 機 が 、 バ リア に 接触 し て し まっ た か どう か を 判断 し て 
いま す 。 
190 行 タイ ム オ ー バ パー の 判断 を し て いま す 。 タイ ム オ ー バ パー な 
ら 、 260 行 へ 飛び ます 。 
200 生 邊 機 (スプ ライ ト の 0 稚 ) を 移動 先 (。 Y Y) に 表 
示し ます 。 そし て 、 画面 左下 の タイ ム 表 示 を か きか えま す 。 
210 行 自 機 の いる 座標 に 何 が ある か 調べ ます 。 CX。 CY の 
計算 式 は 、 スプ アラ イィ ト の 座 棲 を 、 キャ ラク タ 座 標 に 変換 する た 
め の も の で す 。 
220 行 210 行 で 調べ た 結果 、 そこ に 機 震 (CHR$(221) ) が あっ 
た ら 260 行 へ 飛び ま す 。 
260 和 210 行 で 調べ た と こ ろ に 、 許 (CHR$(199)) が あっ た ら 
点 ( SC) を 10 点 、 と っ た 旗 の 数 (S) を 1 つ 加 え 、 旗 を 消 
WW 
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249 IF SC=5 THEN SC=SC+TTI LO 
CATE 5, 12:PRINT'"CLEAR! PT" : 生 
I:iLOCATE 18, 21:PRINT SC:GOTO 

4 の 攻 ETURN 

259 GOTO 70 必 TURNM 

26 の 9 LOCATE 9, 19:PRINT"GAME O 
VER!" :BEEP:LOCATE 18, 21:PRIN 
T SC 降 TURN 

27 の 0 LOCATE 9, 12:PRINT"TRY AG 
AIN?" 降 TURN 

289 IF STRIG (9) =1 THEN RUN 攻 TURN | 
299 GOTO 280 攻 TURN 「 


4 方 向 ボ タン を 押す た びに 猛 独 に 加速 を する 宇宙 前 の スピ ー ド 
コン トロ ー ル は 、 し に くい よね 。 で も 、[A 床 タン を いつ も 小 き ざ 
みろ に 押し 続け て いれ ば 、 宇宙 船 の スピ ー ド が あま り 如 く な ら な い 
か ら 、 ず っ と コン トロ ー ル し や すく な る よ ! 


ノ チ SN 


で 
ペン 
で 


い 


部 空間 X BASIC プ ロ プ ラム リス ト 
| 


240 行 旗 を 5 つと っ た か どう か の 判断 で す 。5 つと っ た 場 

スコ ア (SC) 【 残り 時 間 (TI1) を ポー Eo 

そし て 、 画面 中 央 に 一 面 ク リア の 表示 を だ し ます 。 

250 行 メイ ン ル ー プ の 先頭 の 70 行 に も どり ます 。 

260 生 昌 la ム オ ー バ ー 時 の 処理 で す 。 画面 中 央 に 、 ゲー ム オ ー 委 
パー 表示 を し て 、 その 下 ( に スコ ア (SC) を 表示 し ます 。 

270 行 260 行 で 表 じ し た スコ ア の 下 に 、 も う 一度 ゲー ム を 始め 
る か どう か の 表示 を し ます 。 
280-290 行 も うい ちと ゲー ム を 始め る か どう か の 入力 待ち で 

す 。 ス ター ト ボ タン が 押さ れる まで 、 ここ で 待ち ます 。 


SPPhE の 0 ソン E ド デマ 
TRY お は エエ N テ 


SN すう ひよ 3 


2 YY 自 機 の 座標 SC・ 
1 772 ・ 取 っ た 旗 の 数 
MX。 PX, MX,。 PY, …… 加 速 フ ラグ MY 
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2 上 WC 
_ ト 4 タン で ゲー ム ス タ 
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7 /// / / 
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ぶさ ト 肝 S 画 
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R 
4 
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の 8 CK yy 
) M UN NN N は 1 ( 、 旨 
) ( ンス リリ ん / 7 た の // 
の と いい SS 


イイ NN 


OU NX の ググ NeーAAW グ AMW/ ん へ NN 


全 る < いり 問 


つつ 固 央 ぐ 去ら つ 
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二 じ つ ぁ *6『 で 


トド 
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泌 舎 つ 妃 と や 
は 6 い 公 
KTn ト 2 


地 ン パ to で た で 給 


ん 。s e つ 2 
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NG 


砲 是 つ リ 


NN ーー 


N GO や リー で 
*n_CFO、 け り 吾 竹 一 


NG 
ぐ RPM 
3OLCE 〇 。 


* イ テマ 、 


コ 間 Ge 
り )GQOG ンー 


どの 
いい \ 


っ つっ 愉 避 
の (BI に SS だ SI0 有 | | | ls 


民 DDGSG 事物 人 近作 
ゆー n%6 ン 人 を いで 6 


し 』 


りう) つつ 公 の at9 の SR っ 


と さ 


わが まま UFO 
BASIC プ ログ ラム リス ト 


19 CLS:LOCATE 1, 1 の 9:PRINT"LEV 

EL  ? 【〔【A〕) 一 >AMA  〔B〕) ->PRO" 

20 T=STRIG (⑳) : IF T<4 THEN 20 
IETURM 

3 IF T=8 THEN M=19:GOTO 50 

40 M= の 性 TURN 

59 CGEN 2:CGSET 1, 1 :SPRITE O 

NiCLS:VIEW:PALETB め ⑳ 1, 48, 38, 

2 EETURN 

5 FOR 1= の 9 TO 7:DEF SPRITE 
(0, の 0, の の , の ⑳) =CHR$ (209) : NEXTT: 

GOTO 210 

7 の 0 CLS:VIEW 降 TURN 

80 X=20:Y=1 3 : VX=]1 : VY マ =]1 :S= の :N 

= 隆 TURM 

9 FOR 1= の 9 TO 7:SPRITE I:NEX 

丁 降 TURM 

109 LOCATE 7. の 9:PRINT'"SCORE=" 

:LOCATE 5, 22:PRINT"HI-SCORE= 

) 上 ETURN 
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pm ma 


10 行 画面 を 消 二 し て 、 画 末 中 央 に レベ ル 選 択 表 示 を 出し ます 。 
20 生 レベ ル 選 択 の キー 入力 待ち で す 。 Al.[B| 以外 の キー は 
受け 付け ませ ん 。 

30 一 40 行 AMA レ ベル の と き は 、 メイ ン ル ー プ ブ (110190 
告 ) で WAIT(M) を 入れ 、PRO レ ベル で は 、WA IT を 入れ な 
いよ ょ うに に し て いま す 。 還 

50 行 画面 モー ド を 設定 し 、 スプ ライ ト 表 示 を 可能 に し 、BG 
PE ょ すこ の と き の バ ッ ク の 色 を に 設定 し て いま 
す 。 昌明 
60 行 スプ ライ ト の 0 7 番 に 、 UFO(CHR$(209)) を 定義 
EE 210 行 に 飛び ます 。 

70 行 画 軍 を 消し て 、 も うい ち ど BG 画 面 を 表し ます 。 

80 行 UFO の 最初 の 座 欄 (X、 Y ) 移動 量 (VX。 VY ), スコ ア 
(8 ) の 初期 値 を あたえ ます 。 

90 行 画面 表示 きれ て いる UFO( ス プラ イト の 0- 7 番 ) を 
すべ て 消し ます 。 


100 生 画面 上 
段 ee に こ 0 R 19 
ー/, 画 面 下 彼 に 
"HI 一 SCORE 
ー ク の 字 を 表示 本 きま 


し ます 。 


H エ ー ら CORE = 
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110 K=STICK (9) : IF K=1 THEN V 
メ = テ VX+3 陸 TURN 

120 IF K=2 THEN VX=VX-3 必 TURN 
13 の 0 IF K=4 THEN VY=VY+3 攻 TURN 
14 の 0 IF K=8 THEN VY=VY-3 攻 TURN 
15 の 0 IF HS<S THEN HS=S 陸 TURM 
169 LOCATE 15, 9:PRINT S:LOCA 
TE 16, 22:PRINT HS 降 TURN 

170 X=X+†VX :Y マ = ニ Y+VY:VX=VX+1 :VY 
=ーVY+] 攻 TURN 

18 の 9 IF X< く 9 OR X>256 OR Y<9 O 
R Y>249 THEN 200 性 TURN 

19 の 9 SPRITE N, X, Y:S=S+ 1 :N= (N+ 
1) MOD 8:PAUSE M:GOTO 110 攻 TURN 
200 LOCATE 8, 9 :PRINT"GAME OV 
ER ”:PLAY"O4B1AO3GFEDCO1C5" 性 TURM 
21 の IF STRIG (の ②) =1 THEN GOTO 
7 の TURN 

220 LOCATE' 3, 13 :PRINT"PUSH S 
TART BUTTON 1!!! 

23 の 9 GOTO 210 


170 行 の VX ニ VX 二 1:VY ニ VY 十 1 の 
と ュ ユー ジオ ー 
十 1 を を それぞれ 取っ て し ま ぇ ば 、UFO の スピ 
いつ て い が 
ー ド が 一 定 に な っ て 、 少し や さき さ し く な る ぞ 。 


ユー プ オ ー シ 


わが まま UFO BASIC プ ロブ ラム リス ト 


に ゅ うり ょ く に ゅ うり ょ く 


110 一 140 行 キー の 入力 ( K) を 受け 付け ます 。 そし て 、 入力 き 


じょう げ さ ゆう 


れ た キー の 方 向 に よっ て 、 上 下 左 且 の 回 度 ベク トル ( VX, VY) 
を 増やし ます 。 こ の 各行 の 最 後 の 数 値 の 3 を へ ら せ ば 、 巡 度 は 
減り ます し 、 敵 や せ ば 、 速 度 も 増え ます 。 


150 生 スコ ア ( S) が ハイ スコ ア (HS) を 越え た ら 、 HS に S を 


90 めん じょう だ ん ひょう じ 
160 行 画面 上 段 に スコ ア ( S)、 下 息 に ハイ スコ ア (HS ) を 表示 
し ます 。 


170 行 UFO を 移動 ( X, Y) し ます 。 そし て 、 速度 (VX, VY) 
を 加 如 し ます 。 ここ で 1 加え て いる と ころ を も っ と 大 き な 数 字 
に すれ は ば 、 加速 度 6 大 きく な り ま す 。 

180 行 画面 か ら UFO が は み 出 し て し まっ た か どう か : の 判断 を 
し て いま す 。 ' 

190 行 UFO を 表示 し ます 。 そ し て 、 ス ユア (S) を 1 増やし ま 
す 。 そ れ か ら 、 レ ベル に よっ て 人 逢う WAIT (M) を か け て 110 行 
に も どり ます 。 


3 りょう お ん が く 


200 行 ゲー ム オ ー バ ー 表 示 を し て 、 終 了 音 楽 を な らし ます 。 


ぎょ う は じ に ゅ うり ょ く ま 


210 一 230 行 も うい ち < ゲー ム を 始め る か と 2 か の 入力 待ち で 
す 。 ス ター ト ボ タン が 押さ れる まで 、 こ こ で 待っ て いま す 。 
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で は 
き 何 
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か ま 
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ニャ eS ゲー シー ーー アー ュー ニー デー キー ツー キー ニー っ ペニーーeeeeoーー ニ ーー ピッ ーー 


ぼく が ちょ うど 
消 を る 時 を み は か ら っ て 


N 。 い どう 
、 移 動 し な いと こう な る 


OO 
CO 


の SOC 


Ta 


に ぎ や が 太郎 ニタ ニタ " % 2 
BASIC プ ログ ラム リス ト 


10 VIEW:CGEN 2 :CGSET 9 の, 2 :SPR 
ITE ON:DIM M(7, 6) 必 TURN 

20 HI=PEEK (&H783A) *※1099+PEEK ( 
&H783B) : エ =1000 ETURN 

30 IF HI= の 9 THEN HI=5090 必 TURN 
49 LOCATE 22, 9:PRINT HI 必 TURM 
50 A$=ー"XYZ「" :B$=" 半 | ^ ":C$=CH 
R$ (32) +CHR$ (199) :D$=CHR$ (216 


) +CHR$ (217) :E$=" リ : ク $ーA$ :N= 


7 必 TURM ' 

69 FOR 1=1 TO N 攻 TURN 

7 の 0 P=RND (7) +1 :Q=RND (6) + 1 : IF 

M (P, Q) =1 THEN 70 の 攻 TURN 

890 GOSUB 279:NEXT:X=R:Y=S 必 TURN 
90 = エー1 : IF T エ = の THEN 320 攻 FTURN 
1909 GOSUB 310:P= (Xー1) ノ 3+1 : Q= 
(Yー-1) 3+1 :X の 9=X:Y9=Y:GOSUB 25 
り :S=STICK (の ) 性 TURN 

11 の 9 IF S= の 9 THEN 180 必 TURM 

120 IF S=8 THEN Y=Yー3 : IF Y<]1 
THEN Y=1 降 TURM 


10 行 画面 の モー ド 設定 を し て 、 BG 画 面 を 表示 し 、 ス プラ イ 
ト 表示 を 可能 に し ます 。 ま た 、 プ ログ ラム 内 で 必要 な 配列 の 人 
言 を お こ な っ て いま す 。 | 2 
20 行 ハイ ス ュ ア (HI) を メモ リ の 783A 番 地 か ら 、 取 り 出し ま 
す 。 また 、 タ イム (TT) の 初期 値 を あたえ ます 。 
30 行 最初 の ハイ スコ ア を 500 に 設定 し ます 。 
40 行 画面 右側 に 、 ハイ スコ ア (HI) を 表示 し ます 。 
50 生 ニタ ニタ の デー タ (A$B$ ) と ハタ ハタ (C$, D$ ) を 定 
が 0 際 守 本 
60 一 80 行 画面 の マス 日 の 任意 の 位置 に ハタ バ タ を N コ 表示 し 
ます 。 配列 M の 浴 字 が 、 マス 目 の 座 様 を 衣 わ し 、 配列 に 格納 る 
れ だ 数 値 が 1 に な っ て いる 場所 に ハタ ハタ が あり ます 。 
90 行 タイ ム オ ー バ ー の 判断 を し て いま す 。 
1OO 符 310fi の サブ ルーチン を コー ル し ます 。 そ の 後 、 ハ タバ 
タ の 座標 (P, Q) を 計算 し て 、 今 じ る ニタ ニタ の 座標 ( X, Y ) ぞ 
X0, YO0 に と っ て お きま す 。 そ れ か ら 、250 行 の す プ ルー チン を 
| ユー ル し て 、 キ ー の 入力 を 受け 付け ます 。 
110 行 キー が 押さ れ て いな か 
っ た ら 、180 行 へ 飛び ます 。 
120 行 ニタ ー タ を 上 の マス 
| に 本 す る よき の 和 吉 で す 。 
後ろ の の IF 文 が 、 最上 授 の マ 
| ス 目 か ら は み 出 き な い よう に 
し て いき すず 。 
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130 IF S=1 THEN X=X+3:IF X>l 


9 THEN 内 
149 IF 
6 THEN 


Y= テ Y+3:IF Y>1 


150 IF S=2 THEN ん デー ルー IF XX<1 


THEN X=1 必 TURN 
160 IF A$=Z$ AND M (P, Q) =1 TH 
EN LOCATE X の , Y の 9:PRINT E$:LOC 
ATE X め , Y6+1: PRINT E$:M (P, Q) = 
⑳ : N= N 一 ] 了 必 TURNM 
179 IF B$= _Z8 AND M (P, Q) = の TH 
EN LOCATE XY の :PRINT C$:LOC 
ATE X9, Y の +1 :PRINT D$:M(P, Q) = 
1 : N=N+ 1 攻 TOM 
180 GOSUB 259:SPRITE 9, X*8+1 
6, Y*8 十 24:SWAP A$, B$ 攻 TURM 
199 IF N> の 9 THEN 90 攻 TURM 
299 LOCATE 7, 19:PRINT'FINISH 

WM :PLAY"OS3E1ABCDE" :LOCATE 
,。 22 : 二 = ニ 10909 一 T 降 TURN 
219 IF HIi>TT THEN POKE &H783A 
エン 109, T MOD 100 必 TURN 
220 LOCATE 7, 12:PRINT"REPLAY 

? 9 RETUI 


人 TR= ん すま TR< く >1 THE 


に ぎ や が 太郎 ニタ ニタ BASIC プ ログ プラ ムリ スト 
130 行 ニタ ニ ー タ を の マス に 村 る き の 入部 で す 。 
140 行 120 行 の 逆 の 処理 で 、 下 の マス 目 に 移動 する と き の 処理 

1 で す 。 ーー ーー ーー 
150 特 130 行人 の 処 上 で 、 友 の マス 昌 に 移動 する も き の 処 昌 
で す 。 

_120-150 行 で 、 入力 きれ た キー の 方 向 に よっ て 、 ニタ ニタ が 
| 上 下 左 右 に 移動 し ま す 。 

160 行 ニタ ニタ が 笑っ て い る と き に 移動 し た Moi 
| この と き 、 ニタ ニ - タ の いた マス 目 に ハタ ハタ が あっ た ら 、 

| ハタ を 1 つ 取 り の ぞい た と いう こと に な り 、 を の ハタ ハタ 

| し ます 。 

| 170 行 ニタ ー タ が 笑っ て いな い ほ き に 移動 し た と き の 処理 で 
「 す 。 この と き 、 ドー ヤー キー シグ 1 も Ao に ルー 目 に 何 な か っ た 場合 、 失 
敗 し た 判断 し て 、 っ ハタ ハタ を 表示 し て 、 残り 数 (N) を 

「 1 ふやし ます 。 

[ 190 行 ハタ ハタ を 全部 消し 終っ て い な いと き 、 90 行 に も どり 
| ます 。 

200 行 ゲー ム 終 了 時 の 
らし ます 。 

| 210 行 タイ ム (T) が 、 ペスト タイ ム よ り 短 か か っ た ら 、 べ ス 
ー ト タイ ム と し て 、783A 番 地 に 格納 し ます 。 ー 
220-230 行 も うい ちと ゲー ー ム を 色 め る か どう か の 入力 待ち 
す 。 ス ター ト ボ タン が 押さ れる まで 、 ここ で 待ち ます 。 


| 


わら 


し L ゅ うり ょ う ひ ょ う じ 


終了 表示 を し て 、 音楽 を な 


N 230 降 TURN 
249 RUN 性 TURM 

259 DEF SPRITE の, (2, 1, の, 9, の) 
デーA$: IF A$= ニ Z$ THEN BEEP 性 TURN 
269 RETURN 性 TURN 

270 M(P, Q) =]1 攻 TURN 
2890 R=3* (P-1) +1 :S=3※ (Q 一 1) +1 降 TURM 
299 LOCATE R Si:PRINT C$:LOCA 

TE R, S+1:PRINT D$ 性 TURNM 
3 の 09 RETURN 必 TURN 「 
319 LOCATE 22, 15:PRINT T:RET 
URN 隆 TURN 
32 の 9 LOCATE 7, 19:PRINT"GAME O 
VER" :GOTO 210 必 TURN 
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SCORE 


人 SATNT(。 

vw 。 リー ト ネ ポー 人 

鶴 ぐ つ し の 〇 
り を V ソ -S 


けり っ の 楓 眉 2 


SN 全便 の の 
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全 で 8 や 
く で KKH ト 
つ し 合 ら 


す た こ ら フ ァ イ タ ー バー ト I[ ) 
@⑯ カ セッ ト テ ー プ を 「 す た こら ファ イタ ー の も ぅ ひと っ の BG グ 
ィ イッ ク 」 の 所 に 合わ せま す 。 次 に | SToP | キー - を 押し て 、 slY| 
[ sITI EMIIRETURN] と キー を 押し ます 。 お ムペ ベー シッ ク の メニ 
“ ュー 画面 に な っ た ら 、|2| キ ー を 押し て 「BG グラ フィ ッ ク 」 を 選 
び ま す 。 以下 は 191 ペ ー ジ か ら の LOAD の し か た を 読ん で 、 カセ 
レ 4 ト テ ー プ か ら BG 4 レン た ッ ク の デー タ を LOAD て きた ら 、 
ESC| を 押し て 、 |sToP| を 押し ます 。 そし て | キー、[F8| キー の 
順番 で 押し た あ あと 、 コ ン ト ロー ラー の スタ ー ト ボタ ン を 押せ 
ば 、 こ れ で 、 次 の 新 し の ゲ 
ガン バ っ て ネ ! 


ジーーー ズ * 
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す た こ ら フ ァ イ タ ー バー ト II 


@ カ セット テー ー プ を 「 す た こら ファ イタ ー の 3 つめ の BG グラ フ 
イ ッ ク 」 の 所 に 合わ せま す 。 次 に TOP] キー を 押し て [SIYIISIT 
EMI RETURN | と キー を 押し ます 。 ゲ ー ム ペー シッ ク の メニ ュー 
画面 に な っ た ら 、|2| キ ー を 押し て 「BG グラ フィ ッ ク 」 を 選び ま 
す 。 以下 は 191 ペ ー ジ か ら の LOAD の し か た を 読ん で 、 カセ ッ ト 
テー プ か ら BG グラ フィ ッ ク の デー タ を LOAD で きた ら 、 ESC | 
を 押し て 、 さら に 「SToP| を 押し ます 。 次 に 、[ 1 キー、 1 

の 順番 で 押し た あと 、 コン トロ ー ラーL ロ の スタ ー ト ボ タン を 押 


し も も だ きい こ 才 て 、 パー ト 中 の 新しい 画面 の ゲー ー ム が は じ ま 
り ま す 。 
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電 つり 泉 し ん で も 9 えた か な 7 じゅ 
に 遊ん だ ら 、 さ て 、 こ ん と は 自分 で 
WWA の ye 
k で も ムズ か し い ょ ー と いう キミ 、 キ ミ 
の た め に は テク ノ ポ リス の 本 『 任 天堂 の フ 
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苑 ん だ り 、10 本 の ゲー ム プ ログ ラム を 打ち 込ん だ どり し て いる 
うち に 、 キ ミ は し っ か り と ペー シッ ク を 覚え て し まう よ 。 お 


SO 


- も し ろ い ゲー ム が で きだ た ら 、 テ クノ ボ ポリス ( に 投稿 し て くれ 。 


< 打ち 込ん て 遊べ る ゲー ム プ ログ ラ 
ム も 10 本 入り 、 い ずれ も テク ノボ ポリ 


ゆう し ゅ い し ょ く 


ス の 優秀 プロ グラ ム か ら 移植 され た 
お も し ろ い ゲー - ム だ 。 し か も 自分 で 


お ぼ 


打ち 込む と 自 疾 に ベー シッ ク が 覚え 
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あ そ 
田 こ の 「 カ セッ ト テ ー プ の ゲー ム て 遊ぼ う !」 
ロ ーー 下 の ペー ジ は 、196 ペ ー ジ か ら 逆 に 読ん で くだ さい 。 


4 や 開 


ます こ キー ドド と デー タ 
レ ュ コーダ ( 使 用 する ラジ カセ ) 
の 接続 マチ ガイ が な いか どう 
か 調べ て みよ う 。 キ ー ボ ー ド 
の WRITE 端子 と デー タレ コ 
ー ダ の SAVE 端 子 (ラジ カセ 
の MIC 端 子 )、 そ し て READ 
端子 し LOAD 端子 (ラジ カセ 
の イヤホン 端子 ) は 正しく 接続 
され て いる か な ? 


② デ ー タ レコ ユ コーダ や ラジ カセ の 
で ん ああ 上 しょう て ん けん 
電池 が 消 も うし て いな いか 点検 。 
③ ま た だ た 、 デ ー タ レコ ー ダ や ラジ 
お ん りょう ちょ う せ いふ て きとう ば あい 
カセ の 音量 調整 が 不適 当 な 場合 
ロー ド た だ 
も LOAD が 正しく なおこ な われ な 
お ん りょう 。 すこ SS 
い 。 音 量 を 少し ずつ 下げ て み だ り 、 
お ん し つ 1 て い 
ラジ カセ な ら 音 質 を .LOW ( 低 
お ん う 
斉 ) に し て みよ ょ よう 。 便 用 する ラ 
き し ゅ に 
ジ カ セ の 機種 に よっ て は 、LO 
ド ふ か の う 
AD が 不可 能 な も の も ある の で 
ちゅ う い ほん らい 
注意 し て ほし いな 。 本 来 な ら 、 
せん よう 和 
専用 デー タレ コー ダ を 使用 する 
の が べ ベスト な ん が だ 。 


二 注 ジ gi 9 


最初 は ちょ っ と や や こし いか ら 、BASIC モ ー ド で BCG 
GRAPHIC の デー タ を LOAD し ちゃ っ た ヨ 、 な ん て マチ ガ 
イ も お こる か も 知れ な いね 。 で も 安心 。 コ ンピュータ は BG 

GRPHIC の デー タ を 


読み 飛ば し て (これ を 
SKIP と いう )、 BAS 
IC ブ ログ ラム か の 
ゃ ん と 読み 込ん で で くれ 
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SS 
多 の ペー ジ に ヽ に が っ: 
続く よ | ノニ 


す あ そ 0 の 8 
「 コ スモ プラ ズ マ 」 で 好き な だ け 遊 ん だ ら 、 今 度 は 次 の ゲー ム 
を LOAD し て みよ う 


ンー NN 
次 の ペー ジ に いい NO 


92SB ェ uo コス そ プ ラズ フ . らら 


EMBruo コス で プラズマ . らら 


BASIC プ ログ ラム を LOAD し た と き に 、 エ ラー 表示 ( ? 
TP ERROR) が 出 て 、 プロ グラ ム が 読み 込め な い 場合 は 、 
キー ボー モン ー タ レ ュ コー ダ の 接続 や 、 En ダ の 再 


せい お ん りょう 


生音 量 調節 が 適当 で は な いこ と が 原因 と 考え られ る ん だ 。 こ 


ん な と き は 接続 ヶ 
7BPnnon ー ブ ル を 点検 し て 
みる か 、 音 
調 税 ( 秋 量 を 少し 
ずつ 下げ て みる ) 
に まう 、 と に た 
IF 1] キ ー を 押し て 


ど ちょ う せ ん 


再度 挑戦 だ ! 
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と ちゅ う 


LOAD の 途中 で 、 [STOP| キ ー を 押し て し まっ た り 、 


は っ せい み か ん せい で : ば あい 


込み エラ ー が 発生 し た りす る と 、 未 完成 な 絵 が 出る 場合 が あ 


る ん だ 。 こ ん な と き は 、 $ 2. 


いち 


一 度 LOAD し 直 き な く て は い 


は 生ま まま 


IESC| キー を 押し な が ら 
[STOP| キー を 押し て 、 た 


5 めん 


GAME BASIC 画 面 へ 


BG _ GRAPHIC の LOAD は 、 ち ゃ ん と で きた か い ? そう し 


ベー シッ ク 


た ら 、 つ ぎ は 「 コ スモ プラ ズ マ 」 の BASIC プ ログ ラム を LOAD 
あ そ 
し て ゲー ム で 遊ん で みよ 。 に 


コス モン ララ 学 
の BASIC ブロ 
グラ ム で す 
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炊 の ペー ジ に 
続く よ 唱 


くち っ 。 OAD て ヒュ クレ 
し OAD ェ スモ プラズマ . BG 


半 滞 所 8 


MC NN WW 2 WW WW et WW ne oew nw nw aw 


の ソン 攻 < くち >, LO て し ッッ し 


人 


1 BEPEP % em は 「 王 全 上 。 
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SAVE か LOAD か 聞か 
れ だ と き に 、 ま ちがっ て 軸 以 
外 の キー ー を 抑 し て し まっ た 坦 
合 は 、 ISTOP キ 一 を 押し て 、 
も う 一 度 や りな お そう 。 6! 人 0 2DE 2 入 お 本 


8 の 作詩 の の らく ヒッ クレ 


次 の ペー ジ に 


カセ モット テー プ を デ 
前 
「 コ スモ プラズマ BG グ ラ 
フィ と を 4 ーー タ 」 とい 
声 が 聞こ えた ら 、 を 


て い 


守 目 ボタ ン を 押 そ う 。 


で ん ち ー も ょ う 


まま デー クレ コー ー ダ の 電池 が 消 
も うし て る と エラ ー が 出る ぞ 


の ペー AG 
2 


VI89 BEPEC2 SG mk mr eg 
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N 3 ( 3 
次 の ベ ページ に 88 昌 
3 フ 


よ だ 
ンピュータ を 呼び 出し た ら 、 い よい よ カ セッ ト テ ー プ か らし 
れん し ゅ う 


OAD し よう 。 練習 も か ね て 、 ま ず は 「 コ スモ プラ ズ マ 」 の ゲー ム 


を LOAD し て みよ うか 。 


キー ボー ド の 文字 キー 
の ひと つか 、 [SPACE キ 
ー を 押し て みよ う o 


NNNNRNRSNSRRSN 


て ん 


す る と 、 カ ラー パネ ル の 点 
減 が 消え て 、 に 
( 話し か け て くる を 。 自分 の 名 
2 大 前 を 入力 3 


も 条 か れ 多 に ンー ン 


ただ した カイ シン : 
2 


次 の ペー ジ に 
続く ぐ よ 中 


テ ーー (e】 
この カセ ッ ト テ ー フ ブフ 
引 を ん を う は つ ばい 


は 、 任 天堂 か ら 発売 き 
れ て いる ファ ミリ ー ュ コ 


せん よう 
ンピュータ 専用 の デー 
タレ コー ダ に 合わ せ 
て 、SAVE さ れ て い 
る ん だ 。 だ か ら 、 な 


せん よう 


る べく この 専用 デー 


こう に ゅ } 


タレ コー ダ を 購入 し 
て 、 こ れ を 使用 し 
て 、 カ セッ ト テ ー 
プ か 6LOAD し た 
ほう が いい の が だ 。 
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つ 
て ーー 


| 


a 
あん 


火 の ベ ー 


\ 
レン 


で NN や いで いや で や こ て 


き 
ト 、J 
NN 
さ 
kN3 
ト FNN 
ミ 


| 7/// 


4///// 


く 
さき 
ゞ ヾ 


で SS や NN や NN や で へ むい 


ーーー マ ーー マーーーーーー 


和 
ーー か クッ 


多 
多 
光 
多 


を を 条 


を 
多 
多 


多 
多 
3 
を 


3 
移 
を 
2 


2 


義和 あ 移 人 


resoooeo 


Ss 
次 の ペー ジ に 
続く ぐ よ 中 


と ん ん た な 2 
た すす ムル 人 ー 條 -4 
と ひん ん た 4 
上 の 《ー か 0-0- 情 議 
と 42444/ 
た た ん 
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195 


あ そ 
この カセ ッ ト で 遊ぶ に は 
ミリ ー コ ンピュータ 


ま 
ゃ 
Je 


le 


丸山 裕之 


人 み ワ ー ク ン 2 


の ボコ 四 月 工場 ・ 婦 よし みる 


デザ イン ノ 山 下 還 奴 ・ 佐 共 ・ 高 時 あか ね 
フィ ニッ シュ デザ イン ノ 称 創 新 社 


記事 お よび プロ グラ ム の 無断 転載 を 禁じ ます 。 


本 誌 掲載 の 写真 ・ イ ラス ト ・ マ ン ガ ・ 


ーー 494 も 
ソ 抽 本 古式 全社 ーー 


の) 


て 


い 


口 


-nNnーnann-m で 
TNI ロー シー ha と 


っ 


